home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxcmanager / examples / url.rexx < prev   
OS/2 REXX Batch file  |  1999-05-25  |  471b  |  28 lines
  1. /* */
  2.  
  3. l="rxcmanager.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  4.  
  5. parse arg key
  6.  
  7. k = "#?"key"#?"
  8.  
  9. patt.Name    = k
  10. patt.WWW     = k
  11. patt.Comment = k
  12.  
  13. num = CMFind("WWW","URL","PATT",1)
  14. if num=0 then do
  15.     say "No url entry found for '"key"'"
  16.     exit
  17. end
  18.  
  19. say "Found" num "url(s):"
  20. do i=0 to num-1
  21.     say
  22.     say "Name:     " url.i.Name
  23.     say "WWW:      " url.i.WWW
  24.     say "Comment:  " url.i.Comment
  25.     say "WebMaster:" url.i.WebMaster
  26.     say "EMail:    " url.i.EMail
  27. end
  28.